home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
golf
/
golf.frm
< prev
next >
Wrap
Text File
|
1995-04-02
|
25KB
|
814 lines
VERSION 2.00
Begin Form Form1
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Golf"
ClientHeight = 6765
ClientLeft = 1230
ClientTop = 1065
ClientWidth = 6525
Height = 7170
Icon = GOLF.FRX:0000
Left = 1170
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6765
ScaleWidth = 6525
Top = 720
Width = 6645
Begin CommandButton btnHelp
Caption = "Help"
Height = 315
Left = 4200
TabIndex = 16
Tag = "/3d_inset/"
Top = 5760
Width = 2115
End
Begin PictureBox picReference
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0C0&
FillStyle = 0 'Solid
Height = 6030
Left = 6600
MousePointer = 2 'Cross
ScaleHeight = 400
ScaleMode = 3 'Pixel
ScaleWidth = 250
TabIndex = 2
Tag = "/3d_inset/"
Top = 420
Width = 3780
End
Begin CommandButton btnNewGame
Caption = "New Game"
Height = 315
Left = 4200
TabIndex = 13
Tag = "/3d_inset/"
Top = 5340
Width = 2115
End
Begin CommandButton btnQuit
Caption = "Club House"
Height = 315
Left = 4200
TabIndex = 6
Tag = "/3d_inset/"
Top = 6180
Width = 2115
End
Begin PictureBox picBG
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00008000&
FillStyle = 0 'Solid
Height = 6030
Left = 180
MousePointer = 2 'Cross
ScaleHeight = 400
ScaleMode = 3 'Pixel
ScaleWidth = 250
TabIndex = 0
Tag = "/3d_inset/"
Top = 480
Width = 3780
End
Begin Label lblCourseName
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Course Name"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 255
Left = 180
TabIndex = 15
Tag = "/3d_raised/"
Top = 75
Width = 6135
End
Begin Label lblInfo
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Double-click behind the ball to swing. Distance from the ball increases swing strength."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 855
Left = 4320
TabIndex = 14
Tag = "/3d_inset/"
Top = 1500
Width = 1875
End
Begin Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Select a Club"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 255
Left = 4380
TabIndex = 8
Tag = "/3d_raised/"
Top = 4080
Width = 1740
End
Begin Image imgClub
BorderStyle = 1 'Fixed Single
Height = 645
Index = 2
Left = 5580
Picture = GOLF.FRX:0302
Top = 4440
Width = 525
End
Begin Image imgClub
BorderStyle = 1 'Fixed Single
Height = 645
Index = 1
Left = 4980
Picture = GOLF.FRX:06B0
Top = 4440
Width = 525
End
Begin Image imgClub
BorderStyle = 1 'Fixed Single
Height = 645
Index = 0
Left = 4380
Picture = GOLF.FRX:0A5E
Top = 4440
Width = 525
End
Begin Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Score"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00800000&
Height = 255
Left = 4380
TabIndex = 12
Tag = "/3d_raised/"
Top = 3240
Width = 1755
End
Begin Label lblScore
Alignment = 2 'Center
BackColor = &H0080FFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 255
Left = 4380
TabIndex = 11
Tag = "/3d_inset/"
Top = 3600
Width = 1755
End
Begin Label lblPar
Alignment = 2 'Center
BackColor = &H0080FFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 255
Left = 5340
TabIndex = 10
Tag = "/3d_inset/"
Top = 1020
Width = 855
End
Begin Label lblStrokes
Alignment = 2 'Center
BackColor = &H0080FFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 255
Left = 4680
TabIndex = 9
Tag = "/3d_inset/"
Top = 2820
Width = 1095
End
Begin Label lblHole
Alignment = 2 'Center
BackColor = &H0080FFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'Fal